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per SPECTRUM 
e ZX81 

Direttore Responsabile: 
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SINCLAIR DOSSIER 

il mensile per realizzare la tua 
Biblioteca di Software in tre 
sezioni: 

— Giochi 

— Programmi personali 

— Programmi di utilità 

Lire 2000 

I numeri arretrati, a lire 4000, 
possono essere richiesti sen¬ 
za oneri di spedizione con pa¬ 
gamento anticipato in contan¬ 
ti, o tramite assegno o vaglia 
postale intestato alla Società 
editrice. 

Impianti: 

Cencograf 

Stampa: 

Rotolito Lombarda SpA (MI) 

Distribuzione: 

Messaggerie Periodici (MI) 



Ogni mese in edicola 
il DOSSIER 
per il tuo computer 


• COMMODORE DOSSIER 

• SINCLAIR DOSSIER 

• TEXAS 99/4A DOSSIER 


giochi, programmi di utilità 
e programmi personali per 
realizzare una fantastica 
biblioteca software 



UTILITY 


CODIFICA SIMBOLI 



PROGRAMMI 

PERSONALI 



GIOCHI 
















ROMBISI I 


Te m po50 uo ni ini =VW 




Vi trovate al tempo degli antichi romani e siete un 
TRIBUNO (u-f-f iciale) . Il Vostra compito e' quello di 
di tendere la citta' di Roma e per -far ciò' avete a 
disposizioni tre legionari, morti i quali Verrete 
gettato in pasto ai leoni. Per muovervi verso 
sinistra utilizzate il tasto contrassegnato dalla 
lettera Q mentre per muovervi verso destra il tasto 
contrassegnato dalla lettera P. 


1 FOR x=0 TO 7: READ 3: POKE 

USR " a " +X , a : NEXT X: DATA 31,3,5 
,9.17. 224 - , 96,160 

2 FOR X =0 TO 7 : READ a : POKE 




— 3 











































































































































































































































































U© R " b " + X , a : NEXT X 

£ .. 160,14-4. , 136 , 7 , 6 , 5 

3 FOR X=0 TO' 7: RERD a 

USR “ C"+X , a : NEXT x : DRTR 

,224,17,8,5,3,31 

4. FOR x =0 TO 7: RERD a 

USR "d"+x ,a: NEXT X: DRTR 

136,14.4. , 160,192,24© 

5 FOR X 0 TO 7: RERD a 

USR "e"+X,a: NEXT X: DRTR 

, 102,102, 90 , SO , 60.24. 

10 BORDER 3 : PRPER 3 : TNK 


DRTR 248,19 


POKE 
160,96 

POKE 

5,6,7, 

POKE 
255,66 


LS 


C 


20 PRINT RT 0,0; PRPER 0; 
£5 PRINT RT £1,1; PRPER 

30 FOR X ss0 TO 21: PRINT 
" ; RT x , 3 1 ; " *• 


© !. 

RT x , 0 


; PRPER 0; *• 

35 NEXT X 
4.0 LET = 

INT (RND*29)+1: 
15 


0 


LET x ss 1 
LET c =18 


LET y = 
LET d = 


50 

LET 

a ss 1 ; 

LET 

ba l i. 

= 4 : LET t. s 

52 

IF y 

> SS 15 

THEN 

LET 

b = -1 

55 

IF u 

<=14 

THEN 

LET 

bai 

56 

LET 

ba i. i. 

== b a l i. 

- 1 


56 PRINT RT 0,27; PRPER 0 : 11 
“;RT ©,£; PRPER ©; INK 7;"Tempo= 
■ ■ i t ; RT 0,20J "Uomini a"; : FOR w=l 
TO bau.: PRINT PRPER 0 ; "V” ; : N EX 
T uj 

60 LET X = X + a : LET yssy+b 
©1 IF t =99Q THEM GO TO 60© 

62 LET t«t+l: PRINT RT 0,7; PR 
PER 0; INK 7;t 

65 LET d=d+(INKEY$="p" RND d+1 
<30) - ( INKEY$ = "q" RND d > 0 ) 

70 PRINT RT x,y; OUER 1; PRPER 

3; INK 0 a $ w 

75 PRINT RT C+l,d;" V " 

©0 IF d «»0 OR d +2=31 THEN PRINT 
RT C + 1,0; INK 0;" " ; RT c + 1,-31 ; 

INK 0;" " 

92 IF assi RND b = 1 THEN PRINT R 

T X-1,'4-1; PRPER 3;" " 

94 IF a =-1 RND bel THEN PRINT 
RT x +1,y-1; PRPER 3;" " 

96 IF a»l RND b=s~l THEN PRINT 
RT x -1, y +1 ; PRPER 3.;" " 

93 IF a =“1 RND b = -1 THEN PRINT 

rt x +1,y +1; frpcr 3;’ 

105 IF Bai. 1=0 THEN GO TO 500 








































































































































































































































































































































110 

IP 

X 

ss 1 THEN 

LET 

a =1 

120 

IF 

y 

ssl THEN 

LET 

b ss 1 

125 

IF 

y 

« d + 1 

PND 

X SS c 

PND a=-l T 

HEN 

LET 

a 

» 1 : 

BEEP 

.01,20 

127 

IP 

y 

= d + 1 

PND 

X s= C 

PND a=l TH 

E N L ET a 


- 1 : 

BEEP 

.01,20 

130 

IP 

y 

=30 THEN 

LET 

b ss - 1 


131 

IP 

a ss 

1 PND b =s 1 THEN 

LET a $ = 

* ’ " 

132 

IF 

a = 

-1 PND b = 1 THEN 

L ET a .4 


133 

_ • •. M • - 

IF 

3 ss 

1 PND b = -1 THEN 

LET a % 

— li 

134 

IP 

3 s 

-1 PND bss-1 THEN LET a 

* = ,,r V' 

135 

IP 

( y 

=30 OR yal OR X 

= 20 OR 

X SS 1 ) 

THEN 

BEEP .01,15 

136 

IF 

X ss 

20 THEN GO SUB 

200 : LE 

T a » - 

1 : 

IF 

ba L l > 0 THEN GO 

TO 56 

140 

GO 

TO 

©0 



£00 LET a =-1 : BCEP 1,-20: DEEP 
2,-30: RETURN 
500 CLS 

510 PRINT PT 3,3;"Avete perso t 
re uomini in: " : t : PRINT "uni t. a ' 
di tempo" 

530 PRINT PRINT " Peccato i L 

EQNI Ui invitano a L la Loro C 

ENR con UGi come PRANZO. ! !" 

54.0 POR w=0 TO 10: POR r =0 TO 7 


BORDER r: BEEP .01,r: NEXT r: 
NE XT ut 

550 BORDER 3 


56© 

INPUT 

"Un 

altro gioco •? ( s x 

n) . " ; 

d $ 


570 

IP d $ 

SS " •» 

THEN RUN 

560 

STOP 



600 

CLS : 

FOR 

u>=0 TO 50: BEEP . 

0 1 , W : 

NEXT 

ui 


610 

CLEPR 



620 

LET X 

= 20 : 

LET y *1 : LET a=20 

LET 

b =30 



©30 LET X=X-1: LET y»y+l: LET a 
=a-1: LET bsb-1 

635 IF X ssS THEN GO TO 670 
640 BEEP . 0 1 , X : BEEP .01.a 

650 PRINT AT X,y;;PT a,b;"F>:" 
655 PRINT PT x+l,y-l;" ";PT a+1 

, b + l; " " 

6©0 GO TO ©3© 

670 POR C=0 TO 30: PRINT PT X-l 
,y-2; INK INT (RND*7);" " 

675 BEEP .001,INT (RND*2©)+40 

6S0 PRINT PT X,y-2; INK INT (RN 






























































































































































































































R90 

PRINT 

fìT 

k +1 

y - 

2; INK INT ( 

RND * 

—!* *| .» 1 • » 

* * * 





700 

NEXT C 





710 

CL5 




Avete fini 

720 

PRINT 

AT 

3,0; 

• i 

to i 

L tempo 

L i 

m ite 


siete il n 

U O V o 

Sii 1 1 

GENERALE 

• f 



de LL'a rma t 

•3 • . : 

730 

INPUT 

"Un 

a L t 

r o 

gioco 7 < s / 

m . ' • 

; d $ 





74-0 

IF d $ = 

“s ” 

THEN 

RUN 


750 

1000 

1005 

1010 

1015 

1020 

1025 

1030 

1035 

104-0 

104-5 

1050 


STOP 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

> REM 
REM 
REM 
REM 


SP 


CARATTERI 

P=/ 1 

13=** 

C 

D ~\£ 

E*V 


GRAFICI 


granchI o 


ffll 



m 


TEMPO : 27 


UITE : 3 



























































































































































































































































Questa volta siete nei panni di un Granchio che deve 
raccogliere il maggior numero di stelle marine senza 
•farsi sorprendere dalla marea. Altre istruzioni, le 
troverete direttamente nel programma. 


1 

G O 3 

UB 1000 

2 

G O S 

UB 1500 

FI 

PRPER 6: INK 4 

LS 



0 

LET 

C -0 

7 

L.ET 

n=0 

tì 

LET 

d =0 

9 

LET 

L ijS 

10 

LET 

S C =0 

1 1 

LET 

f «3 00 

12 

LET 

q =0 

20 

LET 

t = 0 

30 

LET 

X =15 : LET 

•-j X 

IF L 

=0 THEN PR 

11 0' 1 : 

FOR 

•3=0 TO 2: 

INK 





: NEXT ci : 

32 

CLS 


3-5 

LET 

•3 =s INT (RND 

= I NT 

(RND#25)+3 

40 

PRINT RT X - 2 , y 

50 

PRINT RT X -1,y 


BORDER 6 : C 


FRI NT RI¬ 


GO TO 


■M 


0 


:00 
LET 


4rU-A 


60 PRINT RT 


( R N D * 4 
IF t = f 


x , y -l; *• „ 

70 PRINT RT X +1 , g - 1;“ 

50 PR XNT RT X + 2 m - 1 ; " 

51 LET t = t + 1 : L.ÉT d*INT 

) - INT «: RND *31 : LET n = n + d : 

THEN GO TQ 300 

52 IP q = O THEN IP t. > = f -50 RND 

Lai THEN FOR rii = 1 TO 5: POR n = 1 T 

O S : BEEP .001,60: BEEP .001,50- 

NEXT n: PROSE 5 : NI EXT r.i : LET q* 

1: IF t>«300 THEN LET f»t+ 5 g 

SS IF n > =30 THEN GO TO 4-O0 
84 PRINT RT a, b; INK 

*T TR -1'X;: 1 ^ + 1) :=50 THEN L 

ET SCssc+1: BEEP .09,-3©: BEEP . 
09,-60: GO TO 30 

87 PRINT RT 21,0; "TEMPO : " : t : RT 
21 , SO; " U ITE : " ; 


90 LET X =s x + ( INKEY $ 


RND X < 1 


S ) - < INKEY % = " 0 •* RND X > 2 ) 

_ 91 LET y=y+(INKEY$ = ,, w" RND y<2 
8) - ( INKEY* ss* q" RND y>l) 

0 92 IF INKEY* <> ,,M THEN GO TO 10 





























































































































































































































95 

GO TO 

40 


100 

PR INT 

RT 

X -2 

110 

PR INT 

RT 

x -1 

120 

PRINT 

RT 

x , y 

130 

PRINT 

RT 

x +1 

140 

PR INT 

RT 

X +2 

14 1 

BEEP . 

003 

, 60 


BEEP 


i - 1*' 

1 . y - 1 ; " 
i; " " 


BEEP 
003,60 : 


HI 



.0O3.30 : 
BEEP’.O0 


f-f +50 : GO 


PAUSE 5 : 

3,30 

130 GO TO 4.0 
30O IT I. > 1 THEM L.ET 

TO 4.0 

304- IF taf THEW PRIMI RT 8,10; " 

FINE DEL TEMPO" RT 21.5; t: GO fri 

30 9 

305 IF t<*30O OR L«O THEN PRINT 
RT Q , 1.0 ; "FINE DELLE U ITE " ; RT 21 


'509 FOR n=l TO 3 
BEEP .125,4: BEEP 

: BEEP .4,6: BEEP 


BEEP . 125,6 : 
.125,2: N EXT n 

.4,4: BEEP .4, 


3 10 PR INT RT 2 1,0.; '‘TEMPO : " ; t ; RT 

21, IO ; "PUNT I « " ; se ; RT 21,20; " L* IT 

E:». ;RT IO.IO;"GIOCHI RNCORP?" 
312 IF INKEYJa-s" THEN GO TO 5 

315 PAUSE O: PROSE 0 
320 IF INKEY$ = " n" THEN STOP 
330 GO TO 312 

410 FOR ri *33 TO 46 : PPINT INK 1 

; RT _- 

PRPER 1; INK 7 ; RT c + 





BEEP .0005,n+3: BEEP .0005,n 
412 IF RTTR (X-l,y+l)=55 THEN L 
ET ».*l.-l: LET C » C + 2 : GO TO 50© 
415 IF C =13 THEN GO TO 50© 

420 LET C«C+1: NEXT ri 
500 FOR ns46 TO 33 ST EP -1: PR 

nt ink i; rt e .o; "wmmm 




" , F' R P' E PI' 1N K 

t; rt e +1, o ; " 

; PRINT 

rrrrf 


Ttmr 

501 BEEP 

n 

502 PRINT RT 



506 IF 
3 0 

510 LET 

0 


C + 3,0 ; 

• t 

C *0 THEN LET n=0 : 
e a e —1 : NEXT 


n 


G O T O 
GO TO 50 


— 8 — 





















































































































































































nn c n p 

1000 F OR asLISR 
PERO b y POKE a 
W 

1010 DRTR 2 4- , 2 4 
6 ; ©0,0,0 , ©0,4-0 , 
4,12,252,252 _, 60 
,2 2>'' , 191 , J 1 , O , 
1O30 DPTfi 124,2 


, 0 , ©: 
4,25 
12 1 , 
158 , 


8,194.255,129,1 
. 255.555,60.24 . 
24,48.46.43 .3 
10 3 9 
1040 

4® 4*4 

5 , v/ , 

9 9 .. 2 2 

4 9.1 7 
, 195 , 

, 0 

1049 

1050 

32 

1060 
0.0,2 
1070 

5 . £55 

1500 BORDER 5 

L5 

1501 

1502 


.1 d w w 

255,60 
.46,43 
REM- 
DATA 0 
254,25 
, t , 3 1 , 

4,248, 
, 0 , 0,2 
2 

REM 

DPT R O 


‘•a” TO U5R 
, b : MEXT a: RETI 

.43,127,127,120 
4 ©. 40 . 60 , 126,24 
, 124 , 124 , 15 , 15 , 
255 

43,194,199,253, 

31 , 6 , 12 , 12 , 12,4 
0,0,0,0.249.193 
0 


JR 

, 5 

o 

,1 Uw 

©7 

24 
, 0 


, ©3, ©3,120.5© .©O 
4,60,124,124,15,1 
10 3,124,243 , ì 9 4,1 
230,207,59,51,49, 
55.60.153.129.231 
204- , 204,140,140,136,0 


DPT H 2 
'55,62 . 
DPT R 0 


FRI NT 
PR I NT 


, 10 3,146,24,60,©9,70, 
55,127,126,56,24, 

•p f; 
C 


55.2 

30.2 
,23, 


S , 2 8,12,12,0 


62,127,255,255, 
PAPER 5 : XNK 2 : 


PT 3,11;"GRANCHIO" 
OUER 1 ; RT 3.11 ; "- - 


1503 FRINT RT 8,0;“ 

1504 PRINT RT 9,0;" 

1506 PRINT RT 10,O;" 

1507 PRINT RT 17,0;" T 

: - Q / U - 5 IN . / O E 3T R R 

0/1= SU/GIU' . *’ 


15 IO 

0 : "PR 

GO SUB 

4000 : 

PRINT 

«0,TRB 

1 

E M E R E 

UN TRSTO" : PRI..JSE 0 : 

R 

ETURN 

4000 

BEEP . 

25,12 : 

BEEP . 

125,12 

. 

©EEP 

.25,14 

BEEP 

o C7 -1 .‘-f 

n (m. •—* ,i 

: BEEP 

' N 

125,9 

BEEP 

: BEEP 

• 25,7 

: BEEP 

1 err or 

« J- d v~» ,i '*J 

* 

•25,4: 

BEEP 

. 125,5 : 

B EEP 

• 4 

0,12: 

BEEP 

.75,12 




40 10 

PRUSE 

10 




4020 

BEEP . 

25,12 : 

BEEP . 

25,14: 

B 

EEP . 

25,12 : 

BEEP 

.125,3: 

BEEP 

. 2 

5.7: 

©EEP . 

125.5 : 

BEEP . 

£5,4 : 

BE 

EP . 1 

■**-» CT ET . 

«•— j T^J . 

BEEP . 

75,14 



4030 

PRUSE 

10 




4040 

BEEP . 

2 5,14 : 

BEEP . 

40,16 : 

B 

EEP . 

25,14 : 

BEEP 

. 125 .. IO 

: BEEP 

;; 


1 1 


RSTI UT IL. 






























































































































































































































































25,9: BEEP .25.7: BEEP .25,6: BE 

EP . 125,7: BEEP .40,14-: BEEP .40 
, 1S: BEÈP .40,10: BEEP .25,9: BE 
EP .125,6: BEEP .40,9; BEEP .40, 

7: BEEP .40,9: BEEP .10,7: BEEP 

.10,6: BEEP .10,7: BEEP .40,9: B 
EEP .40,7: BEEP .40,4 

4050 PfiUSE 15 


4 0 60 

BEEP 

.40 . 12 : 

BEEP 


O cr 

* CK. 

, 14 : B 

EEP 

. 25,1 

2: BEEP 

. 125 , 

9 

: BEEP .2 

5,7: 

BEEP 

. 125 , 5 : 

BEEP 


» GL 

, 4 ; BE 

EP . 

1 3cs; 

: BEEP . 

4 0,1 £ 


BEEP .75 

, 1 2 
4070 

PRUS 

E 15 





40S0 

BEEP 

,4.0 ,14 : 

BEEP 


. 25 

. 12 : B 

EEP 

. 125 , 

9: BEEP 

.25,7 

: 

BEEP „ 12 

5,5: 

BEEP 

.25,4: 

BEEP 

• 

1£S 

, 5 : B E 

EP . 

75 , 14 






4090 

PRUS 

E 5 





5000 

> BEEP 

. 2 5 , 1 ‘Jj : 

BEEP 


.12 

5,14: 

BEEP 

. 25 , 

15 : BEEP 

. 12 5 


14 : 

BEEP 

. 25 , 

15: BEEP .125 

, 14 : 

BEEP 

.25,1 

5 : PRUSE 

6: BEEP 

. >3 0 , 1 

er, 

: ©EEP .1 

25,10.5; 

BEEP .£5 

, i4 ; 

BEEP 

. 125 , 

12 : 

BEEP 

.£5,14 : 

BEEP 

« 

125 

, 12 B 


EEP .40,14 : BEEP 


12 ! 


12: BEEP 


25,10: BEEP 
BEEP .40,14: 
.9: BEEP .25 

P .75,5 

RETURN 


125,9: BEEP .25 
PPIJSE 1.0: BEEP 
7: ©EEP .125,9: 


125 

BEE 




Siete nei panni del prode LANCILLOTTO e dovete 
recuperare tutte le spade fatate presenti nei vari 
quadri. Attenzione alle porte d'energia che se le 
toccate Vi distruggeranno inesorabilmente. Attenzione 
a come passate tra le varie scale... Un piede in fallo 
e sara' la Vostra fine... Ricordatevi di attendere che 
i trabbocchetti si richiudano prima di passarvi sopra 
per andare a prendere le spade disseminate lungo il 
tragitto del gioco. 















































































































































































































70 FGR F =0 TG 18: PRINT RT F.0 
INK S ; * * B5 ‘ ' : NEXT F: PRINT RT 17 
, 0 ; INK 5 ; “li 11 

©0 FGR F =4- TO 17: PRINT INK 5; 


P N = 100 UIT E = 3 TEMPO=97LIU. =1 


5 PGKE 23658,8: f*GKE 23609,10 
: BORDER 6: PAPER 0: INK 7: CLS 

10 FOR F-0 TO 4-7: RERD R: POKE 

U5R " R •* +F , R : NEXT F 
2© DRTR 1.00 , £65,04 , £55,13© , £55 
,34,255,12©,129,189,165,1©5,139, 
129,126,7,13,26,178,100,104,240, 
IBS 

30 DRTR 60,102,195,129,129,195 
,102,60,24,60,118,251,251,118.60 
,24,66,66,66,1£6,©6,66,66,66 

35 LET HI= 0 : LET H*»"NESSUNO" : 
GG SUB 1000: LET R = 1 : GO SUB 40 
00 

40 LET LEU=0: LET MON»15: LET 
DEL =0 : LET LI=3: LET SC=0 

45 CLS : LET TIME*100: LET SU* 








































































































































































































































RT F , 4. ; "g" ; RT F,3; INK £j '’H": NE 

XT F: PRINT RT 3,3.; INK 2;’^'' 

35 FOR G=3 TO 12: PRINT RT G,5 

; INK 2; "F“ : N E XT G: FOR G = 10 TO 
17: PRINT RT G,6; INK 2;"H“: NE 

XT G 

90 FOR F =0 TO 15: PRINT RT F,S 

INK ; N E XT F 

95 PRINT RT 11,20; INK 5 : 
g“;R T 9,15.; INK 4. ; '' m a 11 ; RT 7,1 
2; INK È; 

100 PRINT RT 15,9; INK 5 : ' "2S£& 5& £ 


105 BRIGHT 1: PRINT RT 17,3; ,, / ,M 
RT 3,4- ; "■/>'' ; RT IO , £4- ; "flt 0,20 
; "x?" .; RT 6,16; , RT 3,10, ••tf?" , RT 

3,26 ; ; RT 9,30; "jj?" : BRIGHT O 

110 FOR F=10 TO 17: PRINT RT F, 


22; INK 
G 14- : PI 
NEXT F: 


2 ; “F •’ : 
11 NT 
FOR F 


NEXT F: FOR F =3 T 
INK fi; “F ‘' : 


115 F OR F 
1, INK 5, "< 


0 


INK 


; " H " 


= 6 TO 

H " : NE 

14: PRINT 

y;-p p 

RT 

TO 17 : 
N E XT 

PR INT 

r 

RT 

F , 3 

TO 15: 
NEXT 

PR INT 

F 

RT 

m . 

IL 

± , 1.1 ; 

t 1 1 

IN K 5 ; 



TO 15: 

PRINT 

RT 

f , a 

N E XT 

F: PRINT 

RT 1 

1 THEN 

PR INT 

RT 

14- , 

PRINT RT 9, 

17 

. i i i * 

J 

2 THEN 

P R I NT 

RT 

3,1 

RT 11 , 

a 1 : •• " ; 

RT 

5,1 

RT 4- , 14- ; INK 

2; 

a ; 

" H " ; 

3 THEN 

P R I NT 

RT 

17 , 


3; INK 2;"H": 

0,29; 

150 

12.; INK 5; 

.155 IF LEU) 

6; INK S;"g" 

4- ; » INK 2; “H " 

RT 3,14-; INK 
150 IF LEU> 

7; ink 5; 14-, s, INK 0; “ 

170 IF LEU>3 THEN LET LI*LI+1 


20O LET 0=0: PRINT RT Y,X; INK 
7: FLASH 1 : : PhUSE 10: PRINT 

RT Y . X : FLASH : PROSE 1® 

2 10 PRINT RT ai, 1; "PN*>"; SO; ; "UI 
TE = " ; LI; ‘' TEMPO = "; INT TIME; "LIU. 
= " , LÉU + 1, '• 


IF INKEY$= 

“P 

'■ AND 

ATTA 

(Y , X 

5 THEN LET 

.ii il 

X 

«X + 1 : 

PR INT 

RT 

IF INKEY $ » 

.* o 

•* AND 

RTTR 

CY , X 

5 THEN LET 

X 

as X - 1 : 

PRINT 

RT 

— 

12 

— 








































































































































































































































V , X + 1 ; 


24.0 IF RTTR (Y-1,50 =2 RND INKEY 
$ = ■‘0" THEN LET Y =Y ~ 1 : BEEP .007, 
Y : PRXNT RT Y +1 , X INK 2 j " F " 

c TC iTj“1-TCi C j- -1 Vii — O L-j I l~\ Tkiy PV 



2 

4- 

S 

IF 

RTTR (Y + l 


X ’J 

ss 

2 R 

ND 


INKEY 

$ 

ss 

» 1 

R ' 

• T 

HEN LET Y = 

Y 

+ 1 

l 

BEEP 


, 007 , 

Y 

: 


PRINT RT Y — 1 ,X 

; 

IN 

K 2 

« l l 
t l 

H 

1 l 


2 

«r 

0 

IF 

SGREEN* < 

Y 

+ 1 


X > = 

i i 

1 1 

THEN 


L 

ET 

Y = 

Y+l: BEEP 

0 

05 


Y : 

PR 

I 

NT RT 


Y 

.» 

X 1 

; F 

LRSH l; ■•lai" 

.» 

RT 


Y - 1 

, X 


11 li. 

tu 

J 

T 

DaD 

+1: GO TO 

4. 

10 







2 

6 

0 

IF 

RTTR ( Y-1 

> 

X) 


20 

THEN GO 


u 

B 

fò 0 0 

0 









2 


0 

IF 

RTTR fY,X 

+ 

i :< 

ss 

7 1 

OR 


RTTR 

( 

Y 


X - 

-1 :< 

=71 THEN R 

R 

ND 

o 

MIZ 

E 

u 

S R 3 2 

cr 

2 

9 

\ 

LET ©C-SC + 100 

‘ 

L 

ET 

S LI 


S U + 1 : 


P 

R 

ir 

■4T 

RT Y i X + 1 ,i 


i * 

j 

RT Y 

, X 

— 

1, " " 


2 

0 

0 

PR 

INT RT 17, 

NON 

> 

IN 

K 

6 

, "O" : 


PR 

I NT 

RT 17,NON- 

1 

• t i 

.* 


* ' • 

IF 


NON =2 

s 

BSJ 


T 

• i 

HEN 

I • 

LET NON=15 

: 

P 

R 

INT 

RT 

17,2 



© 

s 

IF 

X. =0 RND Y 

» 

17 


RND 

3 

U 

«8 TH 

E 

N 


LET 

LEU =LEU + 1 : 


LET 

SO 

ss . 7", 1 

e 

+ 1000 



G 

0 

SU 

B 20O0: GO 

TO 


4-S 





C 

C) 

0 

IF 

RTTR (Y , X 

+ 

1 ) 

ss 

6 OR 

RTTR ( 

Y 

> 

X 

-li S 

6 THEN GO 

6 

UB 


6000 




'•Sj 

0 

0 

PR 

I NT RT 19 , 

0 

• 

I 

NK 

d e* 

L 

1 1 MHH| 

* .. MB# 

ChURLIERI hhb 


3 

1 

0 

IF 

TIME-.5 < = 

0 

THEN 

GO 


TO 60 

00 













1 **» 

2 

0 

IF 

3W=S THEN 


PR 

I 

NT 

RT 


17 , O , 


F 

LflSH 

1 .. .. 









3 

9 

0 

IF 

DEL=2 THEN 

P 

R 

INT 

RT 

17,8 

i 

» ■ 


,1 

RT 

16,8.; " " 

RT 

4. 

.. £4. 

» 11 

.1 


" ,i RT 


. m i jl w .» .» .» n i 4- .i c. *4- .i .» ri i 

15,27; " * 1 : BEEP .01,-10 

39 5 IF DEL. «4- THEN PRINT RT 17,S 

; PRPER 2; INK 4..; " flT 16,8j " I" 

'• cs-r a n>A • •• • n-r -t e=r or» • " i pr-r r\ 


, n i >+ i c+ ; • .ini x ,i •=. i .• ■ l- i_ i u- 

ÈLs0:‘BEEP .01,0 
4-00 LEI T X ME ~T IME - . 3 : L E T fiON - fi 


ON + 1 

: LET DEL=DEL+1: 

G 0 

TO 200 


.110 

IF SCREEN* (Y + l-, 

X \ <: 

) 

" " THE 

N RRNDOMIZE USR 32529 





4-15 

IF D>«6 THEN GO 

S U B 


S000: 

G 

O TO 

450 





4.20 

G O T O £50 





1000 

RESTORE 1000: POR F 

ss 

32500 

T 

O 3 2 

565: RERD R: POKE 

F , 

R 

NEXT 


10 10 

DOTO S . 4- , 197 .33 . 

1 e , 

1 

, 17 . a, 

0 

, 229 

,205,161,3,225,17 

, 1 © 

.■ 

0 , 107 , 

2 









































































































































































































































37,90,125 , £54- , 255,32,237,193.16 . 
230,201 

1020 DRTR 0,6,1,197,33,0,3,17,1, 
0,229,£05,181,3,£25,17,16,0, lè7, 


237,62,32,24.0,19 3,16,233,201 
1100 RETURN 

2000 PRINT RT 10,8; "LIUELL0 "; LE 
U; •* COMPLETATO" 

£005 FQR F = -l TO -4- STEP -1: FDR 
Esl TO 4.: BEEP . 1,F: BEEP .1,6: 
6EEP . 1 , 13 : BEEP . 1 , 14- 
2020 IF INKEY $ = ■••• THEN NEX'T E: N 
EXT F: GO TO 2005 
20ri0 RETURN 

3010 PRINT RT 9,11; FLASH 1;"FIN 
E GIOCO" 

3015 BEEP 1.9: BEEP 1,5: BEEP .5 
,4-: BEEP .5,7: BEEP .5,5: BEEP . 
5.~3 - BEEP 2,2 

3020‘ IF SC > H X THEN INPUT "NUOUO 


RECORDO -IL 

NOME 

PREGO : “ ; 

L INE 

H$ 

LET HI»SO 
TO 3020 

: IF 

LEM H $ > S 

THEN 

GO 

3030 PAUSE 

100 : 

CLS 



4.0O0 BRIGHT 

1 : 

LET R=R+1: 

IF A 

> SS 

6 THEN LET 

R =0 





4- 

0 

10 

>PRINT 

RT 4 

J 

1 

A 


IN 

UER 

6 

E 


1 

A 

i i 

Cft 

U 

RL I 

F 

“7 

jL> 

a 

H 

a 

Li 

ICH I 

• i 

: 


I 

NU 

EPS 

E 


0 





4 

0 

2 0 

PR INT 

INK 

H 

+ 

fS; 

; 

•* * i 

RL 

L 

R 


R 

I 

C 

EP 

e 

R 

D 

ELLE MR 

GICH 

E 





SP 

R 

D 

E 


D 

EL 

MR 

GO 

MERLIN 

o. *• 














4- 

i i 

0 

25 

P R I NT 

INK 

R 

.* 

* » 


TR 

5T I 


o 

A 

P 

: 

O 

, R 

4- 

0 

30 

PRINT 

RT 2 

0 

> 

4 

A 

INK 

R 

+ 

•J» 

A 

i » 

P 

UN 

T 

I 

M 

R s s . = * 1 : 

HI: ” 


F 

ATT I 

DA 


< « 


H 

$ 



4 

1 

0 0 

PRINT' 

RT 2 

, 

1 

A 


IN 

UER 

& 

E 


1 


IN 

K 


a ; 

,, £ 

i i 

R U 


R 


L 

I 

E 

R 


I 





4 

1 

10 

R ANDOM 

IZE 

U 

•5 

R 


-a* ■—? 
W u. 

500 



RR 

N 

D 

OM 

I 

Z 

E 

USR 325 

29 : 

IF 


I 

NK 

EY $ 

ss 

* ' 

1 * 


T 

MEN 


G 

O ‘ 

TO 4000 














4 

1 

20 

BR I.GHT 

0 : 

CL 

•Ta 


; 

GO 

T 

O 


4 

0 



E 

000 

F O P F = 

1 TO 


4 

: 


RR 

NDO 

M 

I 

Z 

E 


U 

SP 


!gl 

O CT 

Un. w 

00: NEX 

T F : 


L. 

ET 

S 

C*S 

e 

— 

1 

0 

0 

: 

L 

ET 

L 

I = L I - 1 : 

LET 


•3 

L.l 

SS 

0 









6 

0 

10 

IF LI = 

0 TM 

E 

N 


G 

O 

SUB 


3 

0 

1 

0 



6 

0 

20 

C L 5 : 

G U T 

O 


4 

cr 




















































































































































































1 

REM 



fi 

L.ET QUI =0 



3 

L.ET = 



FI 

DATA £55.129,129 , 12 

9 

, 129,1 

9,1 i 

9 . £55 



10 

FOR n =:0 T 0 7: READ 

3 

: P O K E 

U 3 R 

"q“+n,a: MEXT n 



12 

DhTh 2 4. , 24. .. 16,60., 48 


120,13 

, 4 




14 

FOR n =0 TO 7: PERO 

•3 

POKE 

MSP 

" i " -m , a : NEXT n 



16 

DATA 24,24,8,50,12. 

00 , 17,8 

13 

FOR ri =0 TO 7: READ 

3 

: POKE 

USR 

".j“+n,a: next n 



2 0 

BORDER 2: PAPER 0 



25 

CL, S 



50 

PRINT AT 1,7; FLASH 


1; INK 

6;"CANGURO" 










































































































































































































4.0 INK 7: PRINT RT 4.0; "SIETE 
UN CRNGURO E DOGETE CERCRRE DI 3 

CRPPRRE SULLA SPONDA OPPOSTA." 

50 PRINT : PRINT 

70 PRINT : PRINT : PRINT "TftST 

O S ss DESTRA TPST 

D 5 « SINISTRA" 

80 PfìlJSE 0 

SS CLS FLASH 1: PRINT "OR N O U 
RO SALTATORE ": FLASH © 

87 IF INKEY % < > " " THEN GO TO 87 

88 PAUSE 0 

•50 LET S C =0 : LET 1=1: LET m e n * 

rf, 

~ 100 LET y *17: LET x «2 
110 CLS 

120 PRINT "QUADRO " ; I. ; " U ITE", : 

FOR i ~ 1 TO meri : PRINT' ; INK 8;" 

A": : NEXT i: PRINT " PUNTI*";' I 
NK 4-.: s. C : " 

130 INK S: PRINT AT 2 1.0: "l"TTTT 1 


Tjm T nrpTTTf'r imi i nnrTT-fnw 

5 0.0;' 'II 1. I IT" ; PAPER I ; " 

**; parer e; " nm - ; 

; phpea 1; '‘ 

"; parer 0.; “CE 


at i9,0; crm 

□ • ■ ;at le, ©;-rnri i 
, 14 0 PAI ntat i , 0 j " mzrrTTTTTTTT 


nxiirmxocnimi] forteto 

17: PRINT AT i 7© ; ; AT i ,31; "□ 

": NEXT i 

150 BEEP .4-, -84: PAUSE 4-: BEEP 
.4,-30: PAUSE 4-: BEEP .4,-26: FA 
USE 4-: BEEP .4,-18: PAUSE 2: BEE 
P .8,-22: FOR i = 1 TO 4- : PAUSE 2 : 
BEEP .2, (-22-S*i ) : NEXT i 
15S IF I. =5 THEN GO TO 2600 
160 GO SUB 2000+1. *1O0 
4-90 LET e = x : LET r= y 
50© IF y>19 THEN GO TO 5000 
510 IF SCREEN $ (y +1 ,X ) O" " THE 

N LET q «2 : IF qw«l AND INT 
10) «1 THEN PRINT AT M+1 . X ; " 

RINT AT INT (RND*18)+1,INT 
27) + £; 

520 IF q=-l THEN 
530 LET r = r-1 
540 LET qsq-1 
560 BEEP ( q + 1 ) ./ 1 1 
600 IF INKEY**"8 1 
A " 

SOI 


< P.ND* 

«* . P 

(RND * 


IF 


i o T 0 

600 


i . -20 

THEN 

LET 

3 $ = 

THEN 

LET 

a 


— 16 — 










































































































































































































602 

LET e 


ljj£ ‘f’ 

(INK 

EY 


Q 


;i - 

»; 

INKEY 

$ = ‘'S“ 

J 











603 

IF e > 

3 

1 

THEN 

L 

ET 

L 

SS 

l + 

1 

L ET 

sc*s 

C + L #2 

: 

it: 

O TO 

1 

00 






604 

PR INT 


RT 

y , x 

. i i 

t 

i i 






605 

ir se 

R 

EE 

N $ f 

r , 

,1 <* 

> 

» < 

i i 


THEN 

GQ TO 

6 30 











610 

IF SC 

R 

E E 

n $ »: 

r + 

1 , e 

j 

SS 

i i 

* * 

RND 

qs -1 

THEN 

L 

ET 

r = r 

+ 1 







615 

LET y 

25 

r : 

LET 

X 

=: e 






630 

PR INT 


RT 

M , X 


INK 



a 

$ 


fi 3 5 

IF y « 

k 

y 

RND 

y 

k X 

TH 

EN 


G O ‘3 U 

D 70O 












64.0 

GO TO 


4 90 








700 

PRINT 


RT 

15 , 

31 

,l 

i i 

J 

RT 


ÌL *4- ,i o X 


23-g -01^30: BEEP .02,10 

/* 0 L E! I S* C 22 S, C 4 1 l 

7S5 PRINT RT M+l.x; INK fi : ,, ri" • 
LET Ky =0 : LET kx=Ó ' ' ~ ' ' 

73© RETURN 

21O0 PRINT RT 15,7i ’■ 

fiT.i-l-JO- PRPER 2; , ‘D"T 

?7?”[jm- WT ftT 13# 1; ''EEHD'' 


^ _J" ; rt 10 

5 RPER 0; 


RT 1 


214.0 LET k M sg ; LET Y y =Q 
£150 RETURN 

2200 PRINT RT 14,1, PRPER g;"d"; 

PhPER 0; ‘ 

2210 POR i=9 TO 29 STEP 5 


RT 19 - i s& , i - 1 ; ' * 


a; : NEXT i 
2 £20 LET ky«13: LET kx *1 
££50 RETURN 


PRINT 
RT ll + i/S.i- 


2300 PRINT RT 4 

prpeh e>i -erri" 

2310 FOR i=1 TO 

, 1, 

6 : 

P R P E R 

PRINT 

2 , 

RT 20 

- i 

*3 , i 

*4. J RT 

( i * 

3 !» + 2 , »: 

i * 4 :• +3 

. ii 
.1 

CD" t 

NEXT i 




2320 

LET k y »3 : 

LET 

k x » 1 



£350 

RETURN 





£400 

FOR i=9 TO 

£4 

STEP 

5: PRINT 

RT 

19 , i ; ; RT 

20 

, i , 

NEXT 

i 

2410 

1 ; 

FOR i=l TO 

o : 

PR INT 

RT i * 

5 , 

” : IF i>l THEN 

PR INT 

RT ( i 

*5 

) -2 , 

4; 





2420 

NEXT i 





£430 

PRINT RT 4 

,5; 

PRPER 

□ 

GJ 


£440 

L ET k y ss 3 : 

LET 

k x =5 


£450 

RETURN 





2600 

LET l. =1 






2610 LET £CaSC+5 
2630 FOR i =-30 T O 30 


BEEP .01,i 


17 — 




































































































































































































NEXT i 

2640 PRIWT RT 10,10; 


E I 


UPER 

' ! " 

; 

F 

o 

R 

i 

= 1 

: PR 

H 

Z 


P 

P. 

I NT 

'• 3 

MBH . 

i i 







26SO 

FOR 

1 

ss 

3 

0 

TO - 

EP . 

01 A 

: 

N 

E 

XT 


i 

2660 

PPU 

SE 


3 

50 



2670 

PR I 

NT 






2680 

PRU 

SE 


i 

SO 



26 0 0 

L ET 

R 

w 

ns 

1 



2695 

LET 

m 

e 

ri 

= ni 

•£ 

ri + 1 

2700 

GO 

TO 


1 

00 



S0O0 

FOR 

i 


1 

T 

o 

5 • 

BEEP 

. 1 . 

i ■£ 

2 


N 

E 

XT 

501O 

LET 

rri 


n 

«m 

C; 

n -1 

5020 

C L 5 







5 0 80 

PR I 

NT 


RT 


, 0 ; 

L ITO 

i • • 







5085 

' PR I 

NT 


• 

P 1 

R 

I NT 

VITE R 

IMA 

5 

TE 

i i 


5040 

IF 

IN 

K 

E 

V $ 

i 

-, i • i • 

4-0 








5045 

PRU 

SE 


0 




5050 

IF 

m e 

ri 


0 

T 

M E N 

5060 

PR I 

NT 



P 

R 

I NT 


FLRSH 

1; ** S 

500 : 

NEXT i 

MOLTO 

IN GR 

STEP 

- 1 : BE 


BEEP 


2 , i *-5 : 


,0; "TENTRTI'v'O PRL 

: print men;“ 
THE N GO TO 50 


GQ TO 10 O 
"PUNTI FATTI 


5070'FOR 


i-1 TO 100: NEXT i 


RUM 


Mettetevi nei panni di un canguro che deve 
attraversare una zona di mare. Per -far ciò' dovete 
saltare di pilastro in pilastro sino a passare dalla 
sponda opposta. Per poter uscire dal quadro dovete 
passare sul pilastro di colore diverso ed in tal modo 
spegnerlo. Solo cosi' Vi si aprirà' la porta 
d'uscita. 


sp 

CONVERSIONE ROMANA 

o 





ì 


Questo programma di utilità' Vi permetterà ' di 
convertire dei numeri scritti secondo la nostra 
normale notazione in numeri ROMANI. Non solo ma esso 
Vi permetterà' anche di imparare a scrivere 
correttamente i numeri ROMANI mediante dei QUIZ. Buon 
1avoro. 


























































































































































R 1^? iòflfcitR 0 : IMK 7 
3 CLS : LET CH®0: LET QG=0 
•4- P RI NT "premere S per visual 
i zzare La t a t* ella di c o n v ersi o 
ne od un aL t ro tasto per con t 

i n u a r e : * • 

5 PAUSE 4.84 

S IF IN K EY$ = " S " THEN GO SUB 2 

000 

0 IF OH =0 THEN CLS 

10 LET C $ = "" : LET tota 1=0; DIM 
Z $ L 1000) : DIM V $ (1000) : DIM riti 

000 !' 

11 PRINT PRINT " p r m ere:": PR 
I NT "D per lezione conv. da A r a b 
o a R o rii ano o 

2) per co n varsione da R o m a n o 
•ad A r a bo (Numeri ) " 

12 PAUSE 464: IF INKEY$=="£" TH 
EN GO SUB 2S00 

13 IF INKEY $ < > " 1 " THEN CLS : B 

EEP .05,2: GO TO 11 

14 IF CH=0 THEN CLS 

15 INPUT "QUALE NUMERO UOLETE 

CONUERTIRE IN ROMANO< 0 PER SCE 

LTfì CASUALE :» ? " ; tn 

le CLS IF tn=Q THEN LET t n ssI 
NT ( RND *3500 0 +1 

17 IF tn >4500 OR tn < 0 THEN PRI 
NT "non possibile:": BE E P 5,3: R 
UN 



£0 

PRINT ." 

immettere 

i l 

n u m e r 0 


Roma n 0 

corrispondent 

e. a t 

n 


INPUT 

r $ : C L S 




4-0 

FOR lai 

TO LEN R $ 




4.5 

RESTORE 




5 0 

READ 2 $ (i ) : READ 

U $ ( 

ij : REA 

D 

N ( i 
55 

) 

i f n 11 :• 

= 0 THE N GO 

TO 

4-00 


60 

IF Z $ ( i 

? TO 

i :< 

THEN G 

O 

TO 

50 





70 

LET C$= 

c $ + 1 j $ •: i :• 




80 

NEXT I 


. 



90 

FOR i=1 

TO LEN C$ 




9 5 

LET C * = 

CJ+" " 




100 

IF c$ ( i 

t 0 i :* < c $ ( 

i+l 

TO i +1 

;i 

THEN LET t 

0 tal ss 1 0 t a t 

+ ( n 

( i + 1 :» - n 

( 

i ) ) : 

LET i a 

i+l: NEXT 

I : 

GO TO 2 


10 

1 10 LET t o t a lato t a 1 + n ( i > 

200 NEXT i 

2 10 IF total >4500 THEN CLS : PR 
INT "non possiti le : " : BEEP 1,2: 
RUM 


19 — 






































































































































































































































£20 PRINT "IL UOSTRO NUMERO E' 

•' ; t. n ; " ; " : PRINT “ L ' EQUI U RLE NT E R 
RRBO'DI ■* : PRINT R$;" E "J total 

230 IF tota I. = t n THEN PRINT : PR 
INT "OTTIMO!": FOR G=1 TO S: FOR 

Fs0 T O 7* : B O R D E R F : B E E P . 02 .. F : 

NEXT F: NEXT G: BORDER 0: G'O TO 

3O0 

231 BEEP .3,-5: EEEP 1,-10 

2 35 IF t o tal - t H > O THE N L ET C = t O 
t a l - t n : G O T O 24-0 
«=• i pt ratn-total 

PRINT "flUETE SUPERA 
IL UPLORE:“ 


236 

LET casti 

2 4-0 

PRINT 

T O D 

I 

£45 

LET G0 = 

£4 6 

LET R =TI 

2 4 7 

RESTORE 

250 

GO SUB 

260 

PRINT : 

RRETTO DI “; 

NT : 

PRINT b 

300 

INPUT “ 

3 10 

IF y $ 

3 20 

RIJN 

400 

C L 5 

4 10 

PRINT “ 

; R$ 


4 20 

PRINT “ 

RE NON 

MERI 

ROMANI“ 

430 

PRINT “ 

440 

G O T O 3 

2000 

CLS 

2005 

PR INT 

W0QÈ 

IN K 6 

20 10 

F o Pi f = 1 

2020 

RERD a $ 

£030 

PRINT a 

£040 

NEXT r 

204 1 

PRI NT 

2045 

INK 7 

Isl04b 

PRINT “| 

2050 

PROSE 4 

£055 

LET OH« 

£060 

RETURN 

2 030 

DATA “I 

.. .. 

” , 10, "L“ 

“ D “ , 

“f“,500, 

2 0 2 0 

DATh ““ 

2500 

RESTORE 

2510 

C L S 

3 0 0 0 

INPUT T 

30 IO 

ir r <0 


40O0 

3010 

PRINT 


IL URLORE CO 


t n 


PRINT “E 


PR I 


THE M 


y % 

STOP 


IL NUMERO ROMRNO: - " 

CONT IE NE DELLE L ETT E 
CORRISPON DENTI RI NU 


00 


TO 

, b$ 
“ 


RIPROURRE! 


*7 

a 


p f e rn e r •=• 
fi; 4 


un tasto 


M " 

ii « i 


"9 
0 

■1000 


’ ' U ' ‘ , 
“C“ , 
1000 


•a r a b o 


nar • • v 

100 j 


PRINT “non 
64: RIJN 


numero 
OR R >3500 THEN CLE¬ 
RO S S i b i le ! “ : PRU5E 


































































































































































































3020 

3030 

304-0 

3050 

LET 

3060 

3061 
3065 
3 070 
'• ; b$ 
3 0 20 
4-000 
500 , 

, 50 , 

,, j,j .. 

4-0 10 


>LET bis"" 

FOR f=l TO 15000 
READ a $, b 

IF a > = b THEN LET b$»b$+a$: 
a = a - b : RE5TORE 4-00Q 
IF R < > 0 THEN NEXT f 
IF GG=1 THEN RETURN 
C L_ 5 

P RI NT “il. n u rii e r o r o rn ano e " 
QO TO 300 

DRTR “H“,1000,"CM",000,“D“ 
"CD" , 4-00 , "C” , 100 , "XC" , 00 , "L 
"XL" , 4-0 , “X“ , 10 , “ IX" , 0 , “U“ . 5 
, 4 /TM 
RETURN 



O^L_l_ I NA 



Siete nei panni di una chioccia e dovete cercare di 
recuperare le Vostre uova prima che il tempo a Vostra 
disposizione scada inesorabilmente. Per -far ciò' 
dovete, utilizzando i tasti di cursore posizionarvi 
sopra il Vostro uovo. Il programma -funziona sulla 
versione non espansa dello ZX81. 


1 "*! 

LET 5=8 



I 

F O R F =: 1 T O 

10 


F 

L. ET 



“ f 

LET R = INT 

f R N D * 2 0 ) 



LET B=INT 

(RND *20 :< 


‘0 

PRINT RT R 

iBi-fiÉ 


10 

LET H $ ss “ —■JDìTiff’ 1 


30 

LET X=1© 



4.0 

LET V=Q 



5 0 

PRINT RT X 

.. V R & 


8 0 
— < • «r i 

L. ET V — y + < I N K E V $ = 1 ’ 8 * 1 

1 

i -< INKEY 

0 0 

IF INKEY S = 

’ ‘ 7 • ' THE N 

LET X=X~ 

1 0 0 

IF INKEY 

“6“ THEN 

LET X = X. + 

1 £Z‘. 0 

0 l 3 



124 

PRINT RT R 

, B B S 


13 0 

IF X=R RND 

Y=B THEN 

NEXT F 

1 3 5 

IF -Wt *’**F ** 

=10 THEN 

G O T O 15 


136 LET 3=5+1 



































































































































































































14-0 >G0 TO 5 0 

150 PRIMT hT SI .0: "flUETE IMPIEG . 
fiTO “ ; S : " TEMP I '■ 

151 STOP 

152 SR'JE "GflLLINfl 

153 RUN 



VECCHIE 



Siete al comando di una nave da guerra e dovete 
affondare le navi avversarie sparando un colpo quando 
si trovano sulla Vostra stessa linea di tiro. I tasti 
da utilizzare durante lo svolgimento del gioco sono: Z 
per ; sparare, K ed M per spostarsi in alto od in basso. 
Il programma funziona sulla versione non espansa dello 
ZX81. 


1 

PRINT ’• 

* i 



VECCHIE NAVI 

15 

LET K ss 0 




1 © 

LET C=0 




17 

LET Dal 




1 S 

LET P =4 




19 

LET 3-4 




20 

FOR TsD 

T O 

2 6 


30 

PRINT RT 

« 

T ; 

* ' 

3 1 

R E M 




35 

PRINT RT 

P , 

2 5 

1 * < 

4 5 

LET U =0 




5© 

XF INKEV 

$ = " 

K •' 

THEN LET U~~4 

6 0 

IF INKEV 

$ ~ “ 

M " 

THEN LET U=4 

65 

IF INKEV 


—r * i 

■* 

RND P=S THEN 

i T O 

200 




7 0 

IP p + yj < 3 

THEN 

LET U=0 

35 

PRINT RT 

P , 

2 5 

il li 

} 

3 0 

LET PbP+ 

i._.i 



00 

NEXT T 





105 LET C-C+l 

106 IF C == 3 THEN GO TO £30 


110 > LET 5 = INT ( RND *4 !» *4+4 
120 JF Sìlfi THEN LET S=4 

130 GO TO S0 

200 PRINT RT S .. T ; 1 ' 

210 LET KaK+1 

215 IF K >10 THEN LET D=D+£ 

220 GO TO 110 

230 PR INT RT 1,0 ** PUNT I a " j K 










































































































































































































































DIDATTICA .DIDATTICA-DIE 


Didattica... Solo didattica... Sempre didattica... 

Questo e' il nostro motto!- Aiutare cioè' chi inizia 

a coltivare questa fulminea passione che si chiama 
"COMPUTERITE ACUTA IRREVERSIBILE". Ma bando agli 
scherzi questa volta ci occuperemo di ESPLORATORI e 
CANNIBALI, entrambe sono decisamente razze in 
estinzione (meno male per la seconda... Altrimenti... 
BRRR!!!... Mi vengono 1 brividi solo a pensarci...). 
Possiamo -fare attraversare tre esploratori e tre 
cannibali -facendo in modo che siano sempre in numero 
uguale?... Arduo dilemma... Non e' vero?... Meditate 
gente... Meditate... Fa' bene alle meningi. Ma 
veniamo alla descrizione: I tre esploratori ed i tre 
cannibali hanno a disposizione una barca per poter 
attraversare, ma essa non può* trasportare piu' di due 
persone contemporaneamente.- Si rendono quindi 
necessarie piu' traversate per poter trasbordare tutti 
sulla spiaggia di destra. Ad ogni passaggio il 

programma chiede il numero di cannibali e 
d esploratori. Il totale d'essi non deve essere 

superiore a due (controllo effettuato all'istruzione 
1<S0, mediante la parola chiave IF) . Nel caso che gli 
esploratori diventano meno dei cannibali il gioco 
termina. Per conoscere il numero degli esploratori e 
dei cannibali nello stessa momento e' stata definita 
una matrice NO nella quale vengono caricati quanti 
d'essi trasbordano. La variabile B permette di 
conoscere su quale spiaggia ci si trova (B=0 per la 
spiaggia di sinistra e B=1 per la spiaggia di destra). 
Dopo aver visualizzato il numero della spiaggia ,il 
programma domanda il numero d'espioratori e di 

cannibali che devono attraversare e controlla che non 
vengano commessi errori. Le istruzioni da 180 a 250 
modificano il contenuto della matrice NO in funzione 
del numero degli esploratori e dei cannibali scelto 
(variabili C ed M) e modificano il contenuto della 
variabile B in riferimento alla nuova spiaggia. Ogni 
volta prima di proseguire il programma controlla se 










































































































































































































abbiamo vìnto oppure perso ed in tal caso visualizza i 

messaggi opportuni. La ROUTINE che 

inizia 

all 

'istruzione 360 sino alla 560; visualizza 

1 e due 

spiagge e le lettere C per i cannibali e le lettere E 

per 

gli esploratori. Questa ROUTINE viene utilizzata 

(richi.amandola mediante la parola chiave GOSUB alle 

istruzioni 70 e 260) piu' volte nell'ambito del 

programma. La tecnica delle ROUTINE cioè' di 

piccaii 

PROGRAMMI, contenuti e richiamati dai PROGRAMMI 

stessi 

e' 

una tecnica molto utilizzata e quindi 

che Vi 

raccomandiamo caldamente. 


10 

REM ESPLORATORI E CANNIBALI 


r>o 

RFM — 


30 

DIM N(4) 


40 

LET N(1) = 3 


50 

LET N(2) = 3 


60 

LET B = 0 


70 

GOSUB 360 


80 

FRI NT 


90 

PRINT "VI TROVATE SULLA SPIAGGIA ";B + 1 


100 

PRINT "NUMERO DI CANNIBALI " 


1 10 

INPUT C 


120 

IF C > N(1 + (B * 2)) THEN GOTO 70 


130 

PRINT "NUMERO D'ESPLORATORI " 


140 

INPUT M 


150 

IF M > N(2 + (B * 2)) TMEN uUfU 70 


160 

IF C + M >2 THEN GOTO 70 


170 

IF C + M < 1 THEN GOTO 70 


180 

N ( 1 + (B * 2)) = N ( 1 + (B * 2)) - C 


190 

N (2 + (B * 2)) = N (2 + (B * 2)) - M 


200 

IF B = 1 THEN GOTO 230 


210 

LET B = 1 


220 

GOTO 240 


230 

LET B = 0 


240 

N < 1 + (B * 2) ) = N < 1 + <B * 2>> + C 


250 

N (2 + (B * 2) > -= N<2 + (B * 2)) + M 


260 

GOSUB 360 


270 

IF N(3) + N<4> =6 THEN GOTO 340 


280 

IF N(l) < = N<2> THEN GOTO 300 



— 24 - 











































































































































































































































290 IF N(2) < >0 THEN GOTO 320 

300 IF N(3) < = N(4) THEN GOTO 80 

310 IF N<4) =0 THEN GOTO 80 
320 PRINT." AVElE PERSO " 

330 END 

340 PRINT " AVETE VINTO " 

350 END 

360 REM - 

370 REM IL GIOCO 

380 REM -;- 

390 PRINT "SPIAGGIA 1 SPIAGGIA 2" 

400 FOR I = 1 TO 4 

410 IF I / 2 = INT (1/2) THEN GOTO 440 
420 LET C$ = "C" 

430 GOTO 450 
440 LET C$ = "E" 

450 FOR J = 1 TO 3 

460 IF N(I) < J THEN GOTO 490 

470 PRINT C$; 

480 GOTO 500 
490 PRINT " 

500 NEXT J 

510 if i < >2 ihln serro 










































































































































































































































TEST DI VELOCITA # DEI— BASIC 


Per valutare in parte le prestazioni di un computer, e piu' precisamente quelle del 
linguaggio in esso implementato e nel nostro caso del BASIC abbiamo creato una sene di 8 
piccoli proggrammi che Vi permetteranno appunto di valutarle. 

Essi in particolare, permettono di valutare la velocita' del BASIC del Vostro computer; 
ovviamente non sono perfette ma, danno un idea piuttosto obiettiva delle reali prestazioni, 
prestazioni che nella normale programmazione, non sempre risaltano. Andiamo ad 

analizzarli uno alla valta, descrivendo quale caratteristica o funzione del BASIC vanno a 
testare. Il primo (vedi listato TEST N.l) e' un test che controlla la velocita’ dei cidi 
FOR-NEXT e viene fatto controllando quanto tempo impiegano 10.000 cidi FOR-NEXT. Il 
secondo (vedi listato TEST N.2) controlla la velocita' di richiamo e di ritorno delle 
SUBROUTINE mediante le parole chiave GOSUB (richiamo SUBROUTINE) e RETURN (ritorno dalla 
SUBROUTINE) sempre in base a 10.000 cidi di programma. Il terzo TEST (vedi listato TEST 

N.3) controlla quanto tempo occorre per caricare una matrice di 10 per 10 elementi con il 

valore via via contenuto nella variabile numerica K. Il quarto TEST (vedi listato TEST N.4) 
controlla quanto tempo occorra per estrarre dei caratteri e contemporaneamente riunirli 
(istruzione 15) sempre in base a 10.000 cidi di programma; un utilizzo questo molto sfruttato 
nelle applicazioni gestionali o nei giochi del tipo "AVVENTURA". Il quinto TEST (vedi 
listato TEST N.5) controlla la velocita' dei calcoli aritmetici (istruzione 15) sempre in base 
a 10.000 cicli di programma; da questo TEST si può' comprendere se il computer e' adatto al 
calcolo matematico. Il sesto TEST (vedi listato TEST n.6) Controlla la velocita’ di calcolo 
scientifico (istruzione 15) calcolando il SENO del LOGARITMO del valore contenuto nella 
1 variabile numerica I che viene progressivamente incrementata dal ciclo FOR-NEXT delle 
istruzioni 10 e 20 sino al raggiungimento del valore 10.000 cioè' per ben 10.000 cicli di 
programma; questo TEST, unitamente al precedente, da' una idea delle capacita' e della 

velocita' MATEMATICO-SCIENTIFICA del computer, evidenziando se esso sia adatto ad usi 

prettamente scentifici. Ovviamente i calcoli matematici e scientifici possono lo stesso 
essere fatti, anche se il computer si rivela molto lento , basta non avere fretta. E' un po' 
come il discorso di chi possiede una FIAT 126 al posto di una MASERATI BITURB0: a destinazione 
arriva lo stesso seppur in molto piu' tempo. Il settimo TEST (vedi listato TEST N.7) 
controlla quanto tempo occorra al computer per stampare a video (VISUALIZZARE) 10.000 scritte 
"SD-TEST"; questo TEST permette di valutare la capacita' del computer di stampa sul video ed 





































































































































































































































































anche di valutare se il suo BASIC sia adatto alla realizzazione di giochi del tipo “ARCADE* 
caratterizzati normalmente da una BUONA se non NOTEVOLE VELOCITA' per poter essere apprezzati 
dagli appassionati di VIDEOSIOCHI. Riguardo anche a questo TEST coie nel caso del precedente 
va fatta una importante considerazione: non e' detto che se il'BASIC del computer e' lento 
non si possano realizzare ugualmente dei VIDEOSIOCHI; basta accontentarsi ed il divertimento 
e' lo stesso assicurato. L'ottavo ed ultimo TEST (vedi listato TEST N.8) controlla la 

velocita' di tracciamento grafico, tracciando mediante l'istruzione 15 un linea diagonale che 
attraversa lo schermo video da un angolo all'opposto. Essa viene tracciata sempre nella 
medesima posizione: quindi non Vi allarmate se al lancio del TEST Vi potrà' sembrare che il 
computer si sia bloccato... Funziona... Funziona. Anche questo TEST e' (atto in base a 10.000 
cicli di programma ed anche per esso valgono le considerazioni (atte a proposito della 

VELOCITA’. Nella tabella posta dopo i listati dei vari TEST sono riportati ì TEMPI in 

SECONDI dello ZX SPECTRUM e per poter (are un confronto con un computer di costo assai 
maggiore quelli dell APPLE II EURQPLUS. I possessori dello SPECTRUM non si avviliscano 

perche ì risultati non sono molto diversi gli uni dagli altri e se al tutto si aggiunge il 
(atto che lo SPECTRUM costa molto meno, si può' decisamente a((ermare che di piu' proprio non 
si può' predendere da quella simpatica “SCATOLETTA NERA* con cosi' tanta GRINTA INFORMATICA. 
1 tempi ..riportati possono anche lievemente dif(erire da quelli che rileverete sui Vostri 
computer a causa di vari (attori, troppo lunghi per essere spiegati in questa sede. Un 

ultima cosa... Perche non proponete ai Vostri amici, possessori di altri computer di (are un 
confronto con le prestazioni dello ZX SPECTRUM; ovviamente non essendo tutti ì BASIC 
per » attalenta uguali alcuni TEST andranno modificati per poter funzionare anche su altri 
computer ma questo penso non sara' d'ostacolo per le Vostre capacita'. Buone prove a tutti, e 
a “RILEGGERCI’ al prossimo mese con altre gustose novità'. 


TEST INI _ 1 


10 POR 1=1 TO 10000 
20 NEXT I 
3 0 ST Q P 


INI 


2 



10 FOR 1=1 TO 10000 
15 Giù SUB 100 
20 NEXT I 
30 STOP 

100 GO sufi! 110 

110 RETURN 
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TEST N. 3 

DIM fl(10,10) 

10 

POR 1 = 1 T O 10 

13 

FOR J*1 TO 10 

13 

POR K * 1 TO IO© 

15 

L_ ET R(I ,,J'f -K 

17 

NEXT K 

13 

NEXT J 

3© 

NEXT I 

30 

STOP ' 

5 

TEST M _ 

LET fi* SD-TEST" 

10 

POR 1=1 TO 10000 

15 

LET TO 2!» +P$(3 TO 5 

) + fì $ 

(. S T O f 

2 0 

NEXT I 

30 

STOP 

10 

TEST M-S 

POR 1=1 Tu 10000 

15 

LET J=I*7+3/I 

20 

NEXT I 

30 

STOP 

10 

TEST INI - <£* 

POR lai TO 10000 

15 

L. ET U = S IN C L N I J - 

2 0 

NEXT' 1 


— 28 







































































































































































































































































































3 O S T O F' 

TEST N.7 

TER. Z.S81- 
Ri g, a •( C £ 

12 SoRouC 


TEST N.S 


10 

15 

16 
£0 
3 0 


POR 1=1 TO 10000 
PRINT " 5L> -TEST , I 
POKE 23695,555 
NEX.T I 
STOP 


F. 

10 

15 

£0 

30 


BORDER 7 
FOR 1=1 TO 
PLOT 0,0: 
WEXT I 

f.t n p 


10000 
DRflU 255 


174- 































































































































































































































































































































TRUCCHX 

SUPER — PROTEI Z I ONE 


Inizia da questo numero sulle pagine della rivista un insieme di piccoli programmi, trucchi ed 
utility per aiutarvi a risolvere quei piccoli o grossi problemi che si Manifestano nella 

prograiiazione dello ZX SPECTRUM e dello ZX81 

Uno dei problemi piu' sentiti dai prograaiatori durante la loro attività' e' certamente quello 
inerente alla protezione dei programmi a causa della PIRATERIA che specie nel nostro paese 
dilaga a dismisura e non accenna a diainuire. Per venire incontro a quanti abbiano creato un 
gioco od altro sullo ZX SPECTRUH ecco una serie di cose da fare per scoraggiare decisamente 
quanti desiderino curiosare nei nostri preziosi listati. La prima cosa da fare e' quella di 
salvare il programma BASIC una volta terminato nel seguente modo: 

1) Aggiungere l’istruzione SAVE "nome programma" LINE numero della linea iniziale dal quale 
deve partire una volta caricato in memoria. Ad esempio se il programma si chiama 6I0C01 e la 
linea iniziale e' la 150, l'istruzione di prima diventa: 

9999 SAVE "SI0C01" LINE 150 

A questo punto e' stato risolto il problema riguardante il caricamento automatico del 
programma; passiamo al secondo punto. 

2) Blocco del programma nel caso di tentativo di BREAK mediante raggiunta dell'istruzione 150 
(quella da cui inizia il programma del nostro esempio): 

150 POKE 23613,0 : P0KE 23614,0 

In poke... Oh!... Chiedo scusa volevo dire... Poche parole mediante questa tecnica il 
programma una volta caricato in memoria parte in maniera del tutto automatica e nel tentativo 
di bloccarlo mediante la pressione dei tasti CAPS SHIFT e BREAK il programma si blocca, 
obbligando allo spegnimento dello ZX SPECTRUM ed ovviamente alla perdita del programma in quel 
momento contenuto in memoria.... 

Vi sono alcune versioni dello ZX SPECTRUM in cui anziché' bloccarsi avviene un NEH del sistema 
ed il computer si resetta come se fosse stato appena acceso. 

Nel caso non si fosse ancora sufficentemente soddisfatti basterebbe inserire un ulteriore POKE 
nell 'istruzione 150: 

150 POKE 23613,0 : POKE 23614,0 : POKE 23607,125 

11 risultato sarebbe quello di rendere non listabile il programma e scusate se e' poco.... 


— 30 

































































































































































































CO.STA MARKETING 


A tutti gli amici lettori di SOFTWARE DOSSIER un’offerta a prezzi molto van¬ 
taggiosi di prodotti di consumo per personal e home computer. 

Per effettuare l’ordinazione è sufficiente compilare e spedire in busta 
chiusa a: 

CO.STA SRL - VIA MAZZINI 128 - 56100 PISA - SERVIZIO MARKETING 

il sottostante tagliando, allegando il pagamento dell’Importo comples¬ 
sivo in contanti o tramite assegno bancario o vaglia postale. I prezzi so¬ 
no comprensivi di IVA e oneri di spedizione. Per spedizioni in contrasse¬ 
gno supplemento fisso di lire 3.000. 

DISCHETTI 


□ Cod. V001 

Minifloppy 5" 1 /4 semplice faccia, semplice densità. 
Scatola da 10 dischetti Lire 45.000 

Ogni scatola oltre la 1° sconto 556. 


□ Cod. V002 

Minifloppy 5" 1 /4 doppia faccia, doppia densità. 
Scatola da 1 0 dischetti Lire 55.000 

Ogni scatola oltre la 1° sconto 556. 


□ Cod. 8002 

Floppy 8" doppia faccia, doppia densità. Scatola da 
10 dischetti Lire 65.000 

Ogni scatola oltre la 1° sconto 556. 

CONTENITORI 

P Cod. BF01 

Contenitore a scatola FLEX BOX per 10 minifloppy con 
coperchio Rosso, Giallo o Nero Lire 5.000 


/ 

J 


Cod. C040 

Contenitore in plastica da 
40 minifloppy, con serratura 

Lire 28.000 


Cod. C090 

Contenitore In plastica da 
90 minifloppy, con serratura 
Lire 35.000 


□ Cod. TD01 

Supporto per stampante e contenitore di moduli conti¬ 
nui TOP DESK In plastica trasparente Lire 90.000 

FLOPPY DISKS 

□ Cod. C001 

Floppy Disks Album Lire 8.500 

□ Cod. E001 

Buste per 2 Floppy Disks 5" 1 /4 con etichette 
in clear antimagnetico Lire 800 

□ Cod. E002 

Buste per Floppy Disks 8" con etichetta 

in clear antlmagnetico Lire 800 


Ordine minimo lire 50.000 


CODICE 

QUANTITÀ 

PREZZO TOTALE 

























TOTALE L. 



Nome 


Cognome 

Via _ 

Città _ 


CAP 


Firma 



































GIOCHI-CONCORSO 


PROGRAMMI E TRUCCHI 


PROVE HARDWARE E SOFTWARE 


PROGETTI SOFTWARE 


BIBLIOTECA PERSONALE 


TUTTOCOMMODORE 


TUTTOSINCLAIR 


TUTTOMSX 










































